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MACRO-8 PASS 3 OUTPUT FORMAT PATCH 
DECUS Program Library DECUS No. 8-519 

ABSTRACT 

Pass 3 generates the primary documentation for a user program. 

Ihc normal format of this documentation, however, is not easily 
stored in notebooks and is often difficult to reproduce on 81/2" 
x 11 sheets. This patch will format the Pass 3 output on the 
teletype into page size blocks of either single sheets or "fan- 
fold" paper. 

Approximately the top 251 of the Zero Page Literal Buffer (loc. 

3533 - 3577) is used for the main subroutine. This moves the space 
allocated to page zero literals up to loc. 3532. Most programs 
should be capable of running in this program, since it is rare 
that the entire zero page will be dedicated to literals. 

OPERATION 

In Pass 3 the program will initialize at the start of each computer 
page and will automatically leave a 13 line margin after every 53 
lines of output. New page settings (by "PAGE" or instructions) 
will initialize the program to start a new page and the computer 
will HALT. The operator should remove the previous page's printout 
to provide for proper alignment at the start of a new oage and then 
depress CONTINUE. (Notice that the "PAUSE" command can be omitted 
at the end of a tape if "PAGE" is used since the computer will 
halt after processing "PAGE"). In this way each computer page will 
begin at the top of a sheet. 

A modification can be made so that single sheets could be inserted 


instead of 

"fan-fold" paper: 


Change: 

Loc. 

To 


3544 

7402 


3545 thru 3551 

7000 


When the output stops, the operator will insert a new sheet and then 
depress the CONTINUE switch. 


MACRO-8 (1971) OUTPUT FORMAT PATCH REV.B 
0100 3532 ZBUFE, 3532 

2572 0000 ZEROT,0 /NEW PAGE 

2573: 3047 DCA TEM1A 

2574 4776 JMS PAGST /INITIALIZE LINE COUNTER IF PASS 3 

2575 5772 JMP I ZEROT 

2576 3555 

2577 7000 NOP 









A 

% 

4 

\ 


2630 

0000 

TYCAR, 0 

/CR-LF 

2631 

1376 

TAD (215) 

2632 

4402 

JMS I BBB 


2633 

4635 

JMS PAGING 

/INCREMENT § TEST LINE COUNTER IF PASS 3 

2634 

5630 

JMP I TYCAR 

2635 

3533 



3106 

1373 

TAD (132) 


3173 

0132 



3533 

0000 

PAGING, 0 


3534 

1375 

TAD (212) 


3535 

4402 

JMS I BBB 


3536 

1774 

TAD PUNONE+1 

0 

3537 

1376 

TAD (-5313) 


3540 

7640 

SZA CLA 

/PASS 3? 

3541 

5733 

JMP I PAGING 

/NO, RETURN 

3542 

2371 

ISZ PAGEND 

/YES, LINE COUNTER FULL? 

3543 

5733 

JMP I PAGING 

/NO, RETURN 

3544 

1377 

TAD (-15) 

/YES, INCREMENT MARGIN 

3545 

3372 

DCA LFCT 


3546 

1375 

TAD (212) 


3547 

4402 

JMS I BBB 


3550 

2372 

ISZ LFCT 


3551 

5346 

JMP .-3 


3552 

1373 

TAD (7713) 

/RE-INITIALIZE LINE COUNTER 

3553 

3371 

DCA PAGEND 


3554 

5733 

JMP I PAGING 


3555 

0000 

PAGST, 0 


3556 

3050 

DCA TEM1A+1 


3557 

3051 

DCA TEM1A+2 


3560 

3052 

DCA VALIA 

• 

3561 

1774 

TAD PUNONE+1 


3562 

1376 

TAD (-5313) 


3563 

7640 

SZA CLA 

/PASS 3? 

3564 

5755 

JMP I PAGST 

/NO, RETURN 

3565 

1373 

TAD (7713) 

/YES, INITIALIZE LINE COUNTER 

3566 

3371 

DCA PAGEND 

3567 

7402 

HLT 


3570 

5755 

JMP I PAGST 


3571 

0000 

PAGEND, 0 


3572 

0000 

LFCT, 0 


3573 

7713 



3574 

3001 



3575 

0212 



3576 " 

2465 



3577 

7763 
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